IDOPEN
DlgDirList File Open
Form1
OkCancel
Label2
Directory:
PName
Label4
&Files:
Label5
&Directories:
OkCancel
Cancel
FList
DList
DlgDirList
lpPathSpec
nIDListBox4
nIDStaticPath
	wFiletype
DlgDirSelectg
lpString
SetErrorMode(
wMode
IDS_PATH
	IDL_FLIST
	IDL_DLIST
	sFileSpec
FListBox
DListBox
iChange
sCurDir
	Form_Loado
IDOPEN
MakePath
DList_DblClick
iErrMode
FList_DBlClick
FList
	ListIndex
IDDEMO
FName
Caption
aPath
FList_Click
DList_Click
OkCancel_Click
Index
Userr
Userr
Kernel
 IDs of the controls we'll be needing
 search spec
 last change flags
 iChange holds the last change flagn
  sCurDir holds the most recent directory
Form_Load
 fill the listboxes (wFileSpec is set to 0 for normal files)
 save the current directory
DList_DblClick
 Prepare a buffer to hold the new directoryf
 get the new directory
 get rid off the Chr$(0)s 
 let Windows handle the errors, e.g. drive not ready, etce
 perform the changes
 give error control back to us
 save the directory change
FList_DBlClick
 if there is a selection, retrieve it and change the IDDEMO
 FName caption to show the full selectionc
MakePath
FList_Click
DList_Click
OkCancel_Click